Chip 1998 July/Chip_1998-07_cd.bin/zkuste/mazda/Hatch311.dxr/Internal_23_SAB BlendButton.ls

Text File | 1998-05-12 | 1.6 KB | 58 lines

property my_blend, def_Blend, button_active, whichevent

on mouseDown me
  if whichevent = #mouseDown then
    init(me)
  end if
end

on mouseUp me
  set the blend of sprite the spriteNum of me to def_Blend
  set the button_active of me to 0
end

on mouseEnter me
  if whichevent = #mouseEnter then
    init(me)
  end if
end

on mouseLeave me
  if the button_active of me then
    set the blend of sprite the spriteNum of me to def_Blend
  end if
end

on mouseUpOutSide me
  set the button_active of me to 0
end

on init me
  set the blend of sprite the spriteNum of me to my_blend
  set the button_active of me to 1
end

on beginSprite me
  set the button_active of me to 0
  set the def_Blend of me to the blend of sprite the spriteNum of me
end

on endSprite me
end

on getPropertyDescriptionList
  if the currentSpriteNum = 0 then
    set memdefault to 100
  else
    set memref to the member of sprite the currentSpriteNum
    set castLibNum to the castLibNum of memref
    set memdefault to 100
  end if
  set p_list to [#my_blend: [#comment: "Blend na:", #format: #empty, #default: memdefault], #whichevent: [#comment: "Initializing Event:", #format: #symbol, #range: [#mouseDown, #mouseEnter], #default: #mouseUp]]
  return p_list
end

on getBehaviorDescription
  return "Vytváøí ze spritu tlaèítko, které je pøed inicalizací neviditelné a po najetí myši nebo stisknutí tl. myši na spritu lze tlaèítko zviditelnit." & RETURN & "PARAMETERS:" & RETURN & "• Hilite Image - Choose the cast member to display when the button is pressed. The default value is the cast member immedietly following the sprite's current cast member."
end